Profile of (eval 319)[Sub/Quote.pm:3]

Filename	(eval 319)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 21 statements in 139µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	7µs	18µs	JSON::Schema::Modern::::BEGIN@7.170 JSON::Schema::Modern::BEGIN@7.170
1	1	1	7µs	16µs	JSON::Schema::Modern::validate_content_schemas
1	1	1	5µs	15µs	Method::Generate::Accessor::_Generated::BEGIN@24.172
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@12.171

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $isa_check_for_validate_5fcontent_5fschemas = ${$_[1]->{"\$isa_check_for_validate_5fcontent_5fschemas"}};
3	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
5	1	0s			my $default_for_validate_5fcontent_5fschemas = ${$_[1]->{"\$default_for_validate_5fcontent_5fschemas"}};
6					package JSON::Schema::Modern;
7	2	30µs	2	29µs	# spent 18µs (7+11) within JSON::Schema::Modern::BEGIN@7.170 which was called: # once (7µs+11µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 18µs making 1 call to JSON::Schema::Modern::BEGIN@7.170 # spent 11µs making 1 call to warnings::unimport
8					# spent 16µs (7+9) within JSON::Schema::Modern::validate_content_schemas which was called: # once (7µs+9µs) by JSON::Schema::Modern::evaluate at line 357 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm sub validate_content_schemas {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@12.171 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 1762;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	30µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.171
18					# END quote_sub PRELUDE
19	1	0s			Carp::croak("validate_content_schemas is a read-only accessor") if @_ > 1;
20					exists $_[0]->{"validate_content_schemas"} ?
21					$_[0]->{"validate_content_schemas"}
22	1	3µs			: do {
23	1	1µs	1	9µs	my $value = $default_for_validate_5fcontent_5fschemas->($_[0]); # spent 9µs making 1 call to JSON::Schema::Modern::__ANON__[/Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm:90]
24	5	64µs	2	25µs	# spent 15µs (5+10) within Method::Generate::Accessor::_Generated::BEGIN@24.172 which was called: # once (5µs+10µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_validate_5fcontent_5fschemas, "Bool", $value, "attribute_name","validate_content_schemas","attribute_step","isa check","mgaca","0","varname","\$self->{\"validate_content_schemas\"}"); $value }; # spent 15µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.172 # spent 10µs making 1 call to warnings::unimport
25	1	1µs			$_[0]->{"validate_content_schemas"} = $value
26					}
27					}
28	1	1µs			$$_UNQUOTED = \&validate_content_schemas;
29					}
30	1	4µs			1;
31
32					;